home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs21.d81 / hiressrl.sfx / hiscroll.bas (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  703b  |  27 lines
  1. 10 IF A=0 THEN 100
  2. 20 IF A=1 THEN 200
  3. 30 PRINT:PRINT"        READY TO DISPLAY DOODLE"
  4. 35 PRINT:PRINT"            DDMIDDLE EARTH"
  5. 40 PRINT:PRINT:PRINT"        PRESS ANY KEY TO START.
  6. 50 [153]:[153]"        PRESS SPACE BAR TO END.
  7. 55 POKE 49221,2:REM SCROLL SPEED. LOWER VALUE GOES FASTER. NOT LESS THAN 2.
  8. 60 POKE198,0:WAIT 198,15:SYS 49152
  9. 65 POKE198,0
  10. 70 GET A$:IF A$<>" " THEN 70
  11. 80 SYS 2048
  12. 90 END
  13. 100 POKE 56,72:CLR:DV=PEEK(186):IF DV<8 THEN DV=8
  14. 110 PRINT"[147]":PRINT"   LOADING  'DDMIDDLE EARTH' DOODLE"
  15. 120 A=1:LOAD"DDMIDDLE EARTH",DV,1
  16. 199 STOP
  17. 200 A=2
  18. 210 PRINT:PRINT"     LOADING  'HISCROLL.C000' ML"
  19. 220 LOAD"HISCROLL.C000",DV,1
  20. 500 :
  21. 510 "    SMOOTH SCROLL HIRES DOODLE
  22. 520 :
  23. 530 "         BY JOHN LEESON
  24. 540 "  Q-LINK PROGRAMMERS' WORKSHOP
  25. 550 "         AUGUST 19, 1990
  26. 560 :
  27.